<!--#include file="Config.asp" -->
<!--#include file="HeadTop.asp"-->


<%


'页面执行时间
Dim startime
startime=timer()

'获取浏览器Id
Id=Request.Querystring("Id")

If Id="" Then Id="00-00"

Dim Conn,Connstr
on error resume next '屏蔽显示错误

Set mRs=server.createobject("adodb.recordset")
Sql="update [Birthday_Code] set Birthday_Hit=Birthday_Hit+1 where Birthday_Id='"& Id &"'"
mRs.open sql,Conn,1,3
Sql="Select * from [Birthday_Code] where Birthday_Id='"& Id &"'"
mRs.open sql,Conn,1,1
%>
<script type="text/javascript">
function doZoom(size){
	document.getElementById('textbody').style.fontSize=size+'px'
}
</script>
<table class="table table-condensed table-bordered">
<tr>
		<td align="center"><h3><% =mRs("Birthday_Title") %></h3></td>
	</tr>
	<tr>
		<td align="right">
		浏览：<font color="#FF0000"><% =mRs("Birthday_Hit") %></font>
		【<a href="javascript:doZoom(16)"><font color="#FF0000">大</font></a>
		<a href="javascript:doZoom(14)"><font color="#FF0000">中</font></a>
		<a href="javascript:doZoom(12)"><font color="#FF0000">小</font></a>】
		<select size="1" onchange="javascript:window.location=this.options[this.selectedIndex].value;">
		<option selected>选择日期</option>
		<%
		Dim today,today1
		today=Year(now) &"-"& Month(now) &"-" & Day(now)

		for n=1 to 366 step 1
			today1=Cdate(DateDiff("d",n,today))
			today1=right("0"&Month(today1),2) &"-" & right("0"&Day(today1),2)
			Response.Write "<option value='?Id="& today1 &"'>"& today1 &"</option>"
		next
		%>
		</select>
		</td>
	</tr>
	<tr>
		<td id="textbody">
		<% =mRs("Birthday_Info") %></td>
	</tr>
</table>
<%
mRs.close
Set mRs=Nothing
Conn.close

%>

<!-- foot begin -->
<!--#include file=Foot.asp -->
<!-- foot end -->
